﻿Imports System.Data.OleDb
Imports System.Data
Imports System.Configuration
Imports System.Drawing
Imports System.Web.UI
Imports System.Web.UI.WebControls
Public Class AddTags
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim con As New OleDb.OleDbConnection(ConfigurationManager.ConnectionStrings("fishconn").ConnectionString)
        con.Open()
        Dim cmd As New OleDbCommand("insert into tblTags (TagDescription) values(@Tag)", con)
        cmd.Parameters.AddWithValue("@Tag", txtMessage.Text)
        cmd.ExecuteNonQuery()
        con.Close()
        Response.Redirect("~/Admin/AddTags.aspx")
    End Sub



    Protected Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click
        ModalPopupExtender1.Show()
    End Sub
End Class